Trip Freq Analysis

Set the working directory to H:/Projects/11000/11187/TS/Task 3.

Load the Scott_County_CR78_trips_78.csv file

CR_78 <- read.csv("H:/Projects/11000/11187/TS/Task 3/CR 78/scott_county_CR78_trips.csv",stringsAsFactors = FALSE)%>%
  mutate(Date=ymd_hms(start_date_central,tz="US/Central"))

Date in ISO8601 format; converting timezone from UTC to "US/Central".

Link_dist_78 <-  readxl::read_xlsx('H:/Projects/11000/11187/TS/Task 3/CR 78/scott_county_CR78_trips.xlsx',sheet = 'LinkDistances')
CR_42 <- read.csv("H:/Projects/11000/11187/TS/Task 3/CR 42/scott_county_CR42_trips.csv",stringsAsFactors = FALSE)%>%
  mutate(Date=ymd_hms(start_date_central,tz="US/Central"))

Date in ISO8601 format; converting timezone from UTC to "US/Central".

Link_dist_42 <-  readxl::read_xlsx('H:/Projects/11000/11187/TS/Task 3/CR 42/scott_county_CR42_trips.xlsx',sheet = 'LinkDistances')

The dimensions of the CR_78 dataset are 2063 rows and 20 columns. The dimensions of the CR_42 dataset are 994 rows and 20 columns.

Two combinations of links were used for analysis. The segments were loaded from the File Geodatabase on the H Drive project folder, rfgb.

The segment for CR_42 included 18 links. The segment for CR_42 included 20 links.

CR_78 and CR_42 Analysis Links

Scott County

CR_78

The data was collected between 2015-08-31 and 2015-11-30.

tripflag_summary_42 %>% 
  mutate(in_model = Total_Dist<40)%>%
  ggplot(aes(x=in_model))+
  geom_bar(stat = 'count')+
  labs(title='Trips less than 40 miles',x=element_blank(),y='Total Count')+
  scale_y_continuous(breaks = seq(0,900,50))+
  theme(plot.title = element_text(hjust = 0.5))

gg <-  ggplot(tripflag_summary_42[tripflag_summary_42$Total_Dist<40,])+
  geom_histogram(aes(x=Total_Dist),color='black',fill='white',binwidth = 2.5)+
  labs(title="Total Trip Distance histogram plot",x="Total Distance (miles)", y = "Count")
  
ggplotly(gg)

Start Locations:

End Locations:

CR_42

The data was collected between 2015-08-31 and 2015-11-30.

tripflag_summary_78 %>% 
  mutate(in_model = Total_Dist<40)%>%
  ggplot(aes(x=in_model))+
  geom_bar(stat = 'count')+
  labs(title='Trips less than 40 miles',x=element_blank(),y='Total Count')+
  scale_y_continuous(breaks = seq(0,1500,50))+
  theme(plot.title = element_text(hjust = 0.5))

gg <-  ggplot(tripflag_summary_78[tripflag_summary_78$Total_Dist<40,])+
  geom_histogram(aes(x=Total_Dist),color='black',fill='white',binwidth = 2.5)+
  labs(title="Total Trip Distance histogram plot",x="Total Distance (miles)", y = "Count")
  
ggplotly(gg)

Start Locations:

End Locations: